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am addicted to reading. It is an agony for me to pass by the invit- 

ing open door of a bookshop — or even the corner newsagent. I 

was in my element recently when I first entered an enormous 
new magazine store. 

I took an armful of magazines to the cash register and, as the 
clerk rang up each price on the till, I asked about one title I hadn’t 
found: ‘Do you stock Fortean Times?’ (a magazine that specialises 
in newspaper clippings of unusual events from around the world). 
She rapped the wall, and instantly a young man in the distance 
looked towards us: she simply mouthed her message; he nodded, 
and turned purposefully toward a particular shelf. 

I turned to the cashier and expressed my admiration that she 
and her assistant had developed soundless communication. Soon 
the young man arrived at my side and dropped a bundle of newspa- 
pers into my arm — The Times; even without counting them, I was 
sure there would be fourteen of them! 

Directly or indirectly, all computer users are involved with 
Information Technology, and information implies a need of accu- 
rate communication. Even with modern methods and knowledge, 
simple misunderstandings frustrate our efforts daily. It’s something 
of a relief to find that even the corner shop understands the same 
kind of frustration we programmers call bugs and design flaws. 


TURING REVISITED 

In the last two months we have looked at the Turing machine, the 
simplest digital computer possible. I posed a problem (in issue 83) 
to write a program for the Turing machine so that it would search 
through its input for three consecutive zeros, and change them to 
ones. Any intervening zeros and ones should not be disturbed. 

Many solved the problem with a program having only five 
states (plus the zero state of course); a few sent in a program with 
only four states; but Martin Doherty of Chingford demonstrated 
that a program with only three states can do the job — see Three 
State Solution. 

Other prizes — a copy of Clockwork Softwares FromBAT lan- 
guage — go to Phil Duffen of Brighton (who included a Pascal 
source listing), John Coulstock of London, Victor Peixoto of 
London and Steve Gunner of Watford (who also provided a longer 
program that would make sure that the string of three consecutive 
zeros was exactly three long). 

Several other readers — including Glenn Knowles of 
Cramlington, James Mackin of Troon, Craig Falls of Bridge of Don 
and others — sent longer letters with more observations, problems 


challenge for the Turing machine and discovers that 
his local corner store suffers from bugs. 


and program simulations. There has been such interest in Turing 
machines that we may return to the subject again, and have a look 
at some of the excellent programs simulating them. 

Stuart Malcolm of Ballinhassig, Cork, suggests some modifica- 
tions to the Turing machine to make it more powerful: 


@ Halt state need not be 0, and the Initial state need not be 1; they 
can be fixed by definition or common consent. 

@ Symbols need not be limited to 0 or 1 (and therefore the number 
of instructions per state need not be limited), but any number can 
be handled, 

@ There could be a third movement option: an instruction may 
choose not to move the input/output tape at all. 


These changes are viable, and make a working computer; however, 
the first suggestion is arbitrary. Any program that uses a different 
start or stop state can be modified slightly (without lengthening it) 
so that you always start in State 1 and finish in State 0. The second 
suggestion complicates the programming process, and doesn’t 
increase the computing power, really. This is precisely what a mod- 
ern computer does: though it naturally handles only binary (on/off 
circuits), it exploits mathematical dodges to make it look as if it is 
working in decimal — all for our sakes! The Binary version of the 
Turing machine is as powerful as Stuart’s proposed extended ver- 
sion. Interestingly, Alan Turing’s first version of his machine 
would recognise any number of symbols, but he decided to simplify 
it to 0 and 1 on revision. 

Similarly Stuart’s third suggestion is interesting, but does not 
add to the computing power. In a few minor instances it could sim- 
plify programming, to be able to go Left, Right or Not at All — but 
no problem that can be solved with Stuart’s machine will be too 
tough for a standard Turing machine. 


____ THREE STATE SOLUTION 
Here is Martin Doherty's solution to my Turing Machine problem set 
in issue 83. This program will search through its input until it finds 
three consecutive zeros and change them to ones. Martin produced a 


program needing only three states: 

state write move newstate write move newstate 
1 0 R 2 1 R 1 

2 0 R 3 1 

3 
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PROGRAMMERS’ 
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Automata — programs that simulate the birth, life 
and death of simple organisms, are the subject of 
our major project this month presented by Wilf Hey. 
He also announces the winners of his programming 
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CLIQUES 
John Horton Conway’s Game of Life enjoyed 
such publicity some years ago that it has become 
K the standard cellular automaton model. With 
three simple rules about how a one-cell imagi- 
nary organism will be born, live and die many 
fascinating things happen with clumps of the organisms 
seeming to work together as communities. 

Not all automata are like Life; the Turing Machine, the subject 
of the last two workshops, is actually itself an automaton (made up 
of a system of cells, rather than one). Another is one I have named 
CLIQUES, for reasons that will become obvious as we proceed, 
which we have included on this month’s SuperDisk. Install it from 
the Magazine option on the SuperDisk menu. It can be used with 
GW-Basic, QBasic or QuickBasic without modification. 

CLIQUES is a world of one-celled creatures living on a com- 
mon grid with every square occupied. These gregarious creatures 
belong to different families, identified by colour: there are sixteen 
colours. In this world the families are ranked: Blue is one rank 
ahead of Black, and Green is one rank ahead of Blue, and so on (as 
in the numbers 0 to 15 assigned by MS-DOS to the colours). The 
social ranking comes full circle, and Bright Whites (15) aspire to 
rise to the rank of their superior, the Blacks (0). 

Each organism will rise one rank if it is next to at least one 
organism of the next higher rank (even if that other organism is 
itself going to rise a rank because of its own aspirations). This hap- 
pens instantly, once each generation: all organisms that are going to 
change colour will do it simultaneously. 

We are going to work on a grid 100 by 100 cells, but we will 
assume that the cells at the top are next to the ones at the bottom; 
similarly we will calculate matters as if the left side of the grid bor- 
ders on the right side. The grid is just a big version of the playing 
board we used in August (issue 83). To represent it on the screen 
we will need a higher resolution than text mode (SCREEN 0) 
because that offers only 25 rows — or 50 at most, if we double up. I 
chose SCREEN 7, which gives us 320 pixels across and 200 down. 


160 DEFINT I-M 
170 KEY OFF 
180 CLEAR 


Most of my programs start off with the same instructions: DEFINT 
is a convenient way to set aside some of the variable names used in 
the program for integer calculation. If you know you will be deal- 
ing with whole numbers you can shorten memory requirements and 
speed processing by using integer variables where possible. I let all 
names beginning with I,J,K,L or M be reserved for integer vari- 
ables. KEY OFF extinguishes that annoying legend at the bottom of 
the screen in GW-Basic that lets you use Function keys instead of 
some Basic commands. , 


230 SCRIYPE' =-7 
240 SCREEN SCRTYPE 
250 CLS 


I initialise a variable (SCRTYPE) rather than directly specify the 
ii ae as" og | Das a = 
Generation 
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ation the | 
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our automaton 
program are 
already begin- 
ning to form 
into cliques. 
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PLACING TWO VALUES IN A VARIABLE 


If memory is short, when using large arrays, one useful technique is to 
double up values. If you have two arrays, or tables, of similar size you 
can often make do with only one array by storing more than one value 
in each table entry; this is especially useful when the values you want 
to store are small integers, allowing the DIM (array) to be declared as 
made up of integer entries. 

This is what we've done in the CLIQUES project this month. We 
need two large arrays, where each entry is a number between 0 and 
15 - small integers that are ideal for utilising this technique. 

To start we need to know the maximum value we want to store for 
the first (of the two) values in each variable of the array. Add one to 
this value to determine the multiplier. In the case of CLIQUES our mul- 
tiplier will be 16. To store and retrieve two values we make use of the 
MOD and INT functions. 

Consider a statement such as VALUE1 = CELL MOD 16. The MOD 
function divides CELL by 16, and returns in VALUE1 not the usual 
result (known as the quotient), but instead the remainder. For exam- 
ple, 310 MOD 16 is equal to 6, because 310 divided by 16 gives a 
remainder of 6. This statement can be used to retrieve the first of our 
stored values. 

To extract the second value we code VALUE2 = INT (CELL/16). The 
INT makes sure that the remainder (which is actually the first value) 
will be ignored. 

Suppose you want to store VALUE1 and VALUE2 in the cell 
IBOARD(IX,IY); you can put VALUE1 in the cell - without disturbing 
the piggyback value that may already be there - by executing: 


IBOARD(IX,IY) = VALUE1 MOD 16 + 16 * 
INT (IBOARD(IX,IY) / 16) 


You won't need the second term if you know that there is no stored 
value in the piggyback position of the cell: it extracts the value that is 
there and then puts it back. 

Suppose later on you decide to put VALUE2 in the cell - again 
without disturbing the value already stored in the cell; you can do this 
by executing: 


IBOARD(IX,IY) = VALUE2 MOD 16 * 16 + 
(IBOARD(IX,IY) MOD 16) 


If VALUE1 was 14 and VALUE2 was 6 these instructions would pro- 
duce a value of 110 in the cell. By itself that doesn’t mean much, but 
110 MOD 16 is 14, and INT(110 / 16) is indeed 6: this confirms that 
using these formulas we can get back both the values we stuffed into 
that single cell. 


SCREEN type; this is simply because this reduces (to one) the 
number of places you have to change if you cannot use EGA-style 
graphics, with 16 colours in graphics mode. If you have only CGA 
capability you can simply change line 230 to SCRTYPE = 1, and 
all other changes will be done automatically. 


260 RANDOMIZE TIMER 

270 DIM IBOARD(100, 100) 

280 COLOURS = 16 

290 IF SCRTYPE = 1 THEN COLOURS = 4 
300 DIM ICOUNT(COLOURS —- 1) 


Fopulation: 
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310 DIM IHI(COLOURS - 1) 

320 DIM ILO(COLOURS - 1) 

330 LOCATE 1,15 

340SPRINT.4C ed O°USELS’? 

350 LOCATE 5,23 

360 PRINT “Population:”; 

370 LOCATE 6,18 

380 PRINT “Current Low High”; 
390 FOR I = 1 TO COLOURS - 1 


400 LINE (110, 56 + 8 * I)-(120, 56+ 8* I+ 


6), Y BE 

ATO 2 2LO(h) A= <LO002 

420 NEXT 

430 LINE (110, 55)-(120, 63), 15, B 
440 ILO(0) = 10001 

450 REM 

460 REM - First time: random values 
470 REM 


480 FOR I = 1 TO 100 

490 FOR J = 1 TO 100 

500 IBOARD(I, J) = INT(RND * 16) * COLOURS 
510 NEXT 

520 NEXT 


The DIM variable [BOARD (line 270) defines an array to store the 
colours for each organism. Lines 450 to 520 will then assign 
colours randomly to each of the inhabitants of our little status-con- 
scious world. 

If you stop and think about this program, you will soon dis- 
cover there’s a problem: since all the organisms decide whether 
they will rise to the next colour at exactly the same moment, we 
can’t just calculate the results on each organism as we go, since we 
would be continually influenced by neighbours we had previously 
changed. The solution is to have a second array to place the 
updated organisms, one by one, and then make the change of gener- 
ation all at once by moving all the updated values back into our 
first array. 

The problem with this is that when using GW-Basic there is not 
enough conventional memory for two arrays this size — you are lim- 
ited to 64K. A few solutions jumped immediately to my mind: the 
one I opted for was to double-up the use of each entry in the 
IBOARD array. There are standard techniques to place two values 
in each variable of an array. See Placing two values in a variable 
on page 356. 


560 WHILE LEN(INKEYS) = 0 
570 WHILE ISTART = 1 
580 POR Si = TOU L00) 


590 POR} “=p tO. 100 

600 IB = (I + 98) MOD 100 + 1 

610 IA = I MOD 100 + 1 

620 JB = (J + 98) MOD 100 + 1 

630 JA = J MOD 100 + 1 

640 K = (IBOARD(I, J) + 1) MOD COLOURS 
650 K2 = 16 * K + IBOARD(I, J) 

660 IBOARD(I, J) = IBOARD(I, J) * 17 
670 IF (IBOARD(IB, J) MOD 16) = K THEN 
IBOARD(I, J) = K2 

680 IF (IBOARD(IA, J) MOD 16) = K THEN 
IBOARD(I, J) = K2 

690 IF (IBOARD(I, JB) MOD 16) = K THEN 
IBOARD(I, J) = K2 

700 IF (IBOARD(I, JA) MOD 16) = K THEN 
IBOARD(I, J) = K2 

710 NEXT 

720 NEXT 

730 ISTART = 0 

740 WEND 


750 Bos TART a= 1. 


Lines 600 to 630 calculate four temporary variables used to help 
identify the neighbours of the current cell of IBOARD. We set IB 
to be the I component of the left-hand neighbour, and IA to the I 
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component of the right-hand neighbour. Usually IB (the B stands 
for Before) will be one less than I — but when I is 1, IB will be 100. 
Similarly IA is usually one more than I — but at the border when I is 
100, IA is 1. JB and JA, you will see, are the J components for the 
higher and lower neighbours. 

In lines 670 to 700 the program investigates the current colour 
value of the four neighbours. This is all part of a larger loop — lines 
580 to 720 — where all 10,000 cells are tested. Note there is a 
WHILE... WEND loop around this simply to prevent the calcula- 
tion on the very first generation where the initial values were set by 
using random numbers. The variable ISTART initially has a value 
of zero, so the loop will be ignored the first time it is encountered. 

Variables K and K2 have been employed to set the next colour 
value of the current cell without disturbing the existing value. In 
line 640, K is set to the next higher colour, and in line 650 K2 is set 
to the two-tiered value that will go back into the pigeonhole if the 
organism in this cell is going to do some social climbing during the 
current generation. 


790 XGEN = XGEN + 1 

800 LOCATE 4, 1 

810 PRINT “Generation”; XGEN 
820 FOR I = 1 TO 100 

830 FOR J = 1 TO 100 

840 K = INT((IBOARD(I, J) MOD 256) 
850 IBOARD(I, J) =K 

860 PSE CE, a. +) SOK; K 

870 ICOUNT(K) = ICOUNT(K) + 1 
880 NEXT 

890 NEXT 


/ 16) 


Lines 790 to 810 change the generation number and display it on 
the screen; at this point we have investigated every cell and know 
what all the changes for this generation will be. 

Lines 820 to 890 form another loop that gets executed 10,000 
times for each generation. It extracts the new colour value for each 
cell from the two numbers we have stored and sets it as the current 
value. It then recolours the cell on the screen. 

Note that in line 870, K is the new colour of the cell; the calcu- 
lation here adds one to the counter set aside for this colour. One of 
the features of this program is that it displays a statistical break- 
down of exactly how many members there are of each colour 
family. We don’t have space to look at how this is implemented 
here; instead I suggest you run the program then examine the code 
from the SuperDisk. 

What is fascinating about the program CLIQUES is that it pro- 
duces results that are extremely difficult to predict — even though 
the fate of every cell is sealed from the very moment the program 
starts. When you start the program the grid looks speckled, and no 
pattern should be visible. You need to be very patient to wait for 
dramatic changes to occur. We suggest you let it run for at least 
300 generations. @ 
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2MB/RAM, 40MB/HD, SVGA COLOUR 


| 486SX-33 £799 
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486DX2-50 SOOO 
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_|FOR VESALOCAL BUS SYSTEMS 
PLEASE ADD £99 1 


ALL VESA LB SYSTEMS SUPPLIED WITH VESA LB 
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